home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / propmgr2.arc / REPORT.ACG < prev    next >
Encoding:
Text File  |  1979-12-31  |  5.1 KB  |  175 lines
  1. * DATE 08/27/84  13:02
  2. * report.cmd
  3. STOR t TO more
  4. DO WHIL more
  5.  STOR CHR(PEEK (063)) TO dr
  6.  ERAS
  7.  STOR 'Y' TO printer
  8.  STOR 'N' TO disk
  9.  STOR '        ' TO filename
  10.  STOR '?' TO command
  11.  @ 2, 0 SAY "--------------------------------------------------------------------------------"
  12.  @ 2,18 SAY "> > >  R E P O R T  M E N U  < < <"
  13.  @ 4,18 SAY "1. Print all data on list"
  14.  @ 6,18 SAY "2. Print all records updated after a set date"
  15.  @ 8,18 SAY "3. Print Telephone Listing"
  16.  @ 10,18 SAY "4. Display Records on screen"
  17.  @ 12,18 SAY "5. Make WordStar-MailMerge File of all records"
  18.  @ 14,18 SAY "6. Make WordStar-MailMerge File of part of the records"
  19.  @ 16,18 SAY "7. Return to Main Menu"
  20.  @ 18, 0 SAY "--------------------------------------------------------------------------------"
  21.  @ 19,30 SAY "WHAT NEXT"
  22.  @ 19,40 GET command PICTURE '!'
  23.  READ
  24.  IF command  >'0' .AND. command <  '4'
  25.   @ 19,22 SAY "Send Report to the Printer (Y/N)"
  26.   @ 19,55 GET printer PICTURE '!'
  27.   READ
  28.   @ 21,22 SAY "Send Report to a Disk File (Y/N)"
  29.   @ 21,55 GET disk PICTURE '!'
  30.   READ
  31.   IF disk ='Y'
  32.    @ 21,00
  33.    @ 21,22 SAY "Enter Disk File Name"
  34.    @ 21,44 GET filename PICTURE '!!!!!!!!'
  35.    @ 21,54 SAY "(.TXT will be added )"
  36.    READ
  37.    @ 21,00
  38.    @ 21,22 SAY 'Select drive to put Files on (A=left B=right) ' GET dr PICTURE '!'
  39.    READ
  40.    DO WHIL @(dr,'AB') = 0
  41.     @ 21,00
  42.     @ 21,22 SAY 'Select drive to put Files on (A=left B=right) ' GET dr PICTURE '!'
  43.     READ
  44.    ENDD
  45.   ENDI disk
  46.   IF printer = 'Y'
  47.    STOR 'Y' TO comm1
  48.    @ 22,15 SAY 'Are you ready to start printing?'
  49.    @ 22,50 GET comm1 PICTURE '!'
  50.    READ
  51.    CLEA GETS
  52.    IF comm1 = 'Y'
  53.     SET print ON
  54.    ENDI comm1
  55.   ENDI printer
  56.   IF disk = 'Y' .AND. filename <> ' '
  57.    STOR @('.',filename) TO length
  58.    IF length = 0 .OR. length > 8
  59.     STOR 9 TO length
  60.    ENDI
  61.    STOR $(filename,1,length-1) TO filename
  62.    STOR '&dr.:'+filename+'.TXT' TO filename
  63.    SET ALTERNATE TO &filename
  64.    SET ALTERNATE ON
  65.   ENDI
  66.  ENDI
  67.  CLEA GETS
  68.  ERAS
  69.  DO CASE
  70.  CASE command = '5'
  71.   DO wsfile.acg
  72.  CASE command = '6'
  73.   DO wsfile1.acg
  74.  CASE command = '1'
  75.   DO list.acg
  76.  CASE command = '2'
  77.   DO list1.acg
  78.  CASE command = '3'
  79.   DO phone.acg
  80.  CASE command = '4'
  81.   ERAS
  82.   @ 02,12 SAY 'Records are displayed by Last names'
  83.   @ 05,12 SAY 'You may choose the first letter'
  84.   @ 06,12 SAY 'of the starting location of the records'
  85.   @ 09,12 SAY 'When WAITING hit space bar to'
  86.   @ 10,12 SAY 'Continue... or ESCape to Quit'
  87.   @ 11,12 SAY 'The ESCape key is the right top key on the'
  88.   @ 12,12 SAY 'extreme left bank of keys.'
  89.   STOR 'A' TO stletter
  90.   @ 17,12 SAY 'Letter of alphabet at which to start display'
  91.   @ 17,57 Get stletter PICTURE '!'
  92.   READ
  93.   FIND &stletter
  94.   DO WHIL # = 0
  95.    STOR 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ' TO ALPHABET
  96.    STOR @(stletter,ALPHABET) + 1 TO NEXL
  97.    STOR $(ALPHABET,NEXL,1) TO stletter
  98.    FIND &stletter
  99.    RELE alphabet
  100.   ENDD
  101.   ERAS
  102.   SET ESCAPE OFF
  103.   DISP NEXT 65000 lastname,fname, spouse
  104.   IF eof
  105.    WAIT
  106.   ENDI
  107.   SET ESCAPE ON
  108.  CASE command = '?'
  109.   ERAS
  110. TEXT
  111.  
  112.  
  113.                       R E P O R T    M E N U   H E L P 
  114.  
  115.        This program prepares a number of reports from the mailing  list data in
  116.        addition to preparing WordStar Mailmerge files which you can use to send
  117.        personalized letters.                        
  118.  
  119.        The Mailmerge options create two files. One is a '.DAT'  file which con-
  120.        tains the names and addresses that WordStar will use to personalize  the
  121.        letter or document you have prepared.    The other file is a '.TXT' file
  122.        which has the introductory information you need to prepare the letter or
  123.        document which you are going to merge.
  124.  
  125.        It is preferable to prepare the draft letter as a separate WordStar doc-
  126.        ument.  When both it and your data base are finalized,  run the WordStar
  127.        option on this program and then after you exit the program open the .TXT
  128.        file as a 'D' file in WordStar and read in the text of your letter. This
  129.        text file will then become the basic merge file.
  130.  
  131.  
  132.                                    Please hit any key to continue..............
  133. ENDT
  134.   SET CONSOLE OFF
  135.   WAIT
  136.   SET CONSOLE ON
  137. TEXT
  138.  
  139.        Remember too - there are two different types of MailMerge files. By this
  140.        program we create a file that 'READS' the variable (thus is is calles an
  141.        '.RV' file). The other  type - used for only a limited number of letters
  142.        'ASKS' for the information (thus it is called an '.AV' file).
  143.  
  144.  
  145.  
  146.        Display records is handy to look at the data - try it. 
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.                                   Please press any key to continue............
  155.  
  156.  
  157.  
  158.  
  159.  
  160. ENDT
  161.   SET CONSOLE OFF
  162.   WAIT
  163.   SET CONSOLE ON
  164.   ERAS
  165.  CASE (command = '7' .OR. COMMAND = 'Q')
  166.   STOR f TO more
  167.  ENDC
  168.  SET PRINT OFF
  169.  SET ALTERNATE OFF
  170. ENDD while more
  171. RELE ALL
  172. STOR t TO more
  173. STOR '?' TO command
  174. STOR t TO first
  175.